home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PACKAGES / REFBIB.ELC < prev    next >
Text File  |  1993-03-28  |  14KB  |  123 lines

  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 16:39:07 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/refbib.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (provide 'refer-to-bibtex)
  14. (defvar r2b-trace-on nil "\
  15. *trace conversion")
  16. (defvar r2b-journal-abbrevs nil "\
  17.   Abbreviation list for journal names.  
  18. If the car of an element matches a journal name exactly, it is replaced by
  19. the cadr when output.  Braces must be included if replacement is a
  20. {string}, but not if replacement is a bibtex abbreviation.  The cadr
  21. may be eliminated if is exactly the same as the car.  
  22.   Because titles are capitalized before matching, the abbreviation
  23. for the journal name should be listed as beginning with a capital 
  24. letter, even if it really doesn't.
  25.   For example, a value of '((\"Aij\" \"{Artificial Intelligence}\")
  26. (\"Ijcai81\" \"ijcai7\")) would expand Aij to the text string
  27. \"Artificial Intelligence\", but would replace Ijcai81 with the 
  28. BibTeX macro \"ijcai7\".")
  29. (defvar r2b-booktitle-abbrevs nil "\
  30.   Abbreviation list for book and proceedings names.  If the car of
  31. an element matches a title or booktitle exactly, it is replaced by 
  32. the cadr when output.  Braces must be included if replacement is 
  33. a {string}, but not if replacement is a bibtex abbreviation.  The cadr 
  34. may be eliminated if is exactly the same as the car.  
  35.   Because titles are capitalized before matching, the abbreviated title
  36. should be listed as beginning with a capital letter, even if it doesn't.
  37.   For example, a value of '((\"Aij\" \"{Artificial Intelligence}\")
  38. (\"Ijcai81\" \"ijcai7\")) would expand Aij to the text string
  39. \"Artificial Intelligence\", but would replace Ijcai81 with the 
  40. BibTeX macro \"ijcai7\".")
  41. (defvar r2b-proceedings-list nil "\
  42.   Assoc list of books or journals which are really conference proceedings,
  43. but whose name and whose abbrev expansion (as defined in r2b-journal-abbrevs
  44. and r2b-booktitle-abbrevs) does not contain the words 'conference' or
  45. 'proceedings'.  (Those cases are handled automatically.)
  46. The entry must match the given data exactly.
  47.   Because titles are capitalized before matching, the items in this list 
  48. should begin with a capital letter.
  49.   For example, suppose the title \"Ijcai81\" is used for the proceedings of
  50. a conference, and it's expansion is the BibTeX macro \"ijcai7\".  Then 
  51. r2b-proceedings-list should be '((\"Ijcai81\") ...).  If instead its 
  52. expansion were \"Proceedings of the Seventh International Conference
  53. on Artificial Intelligence\", then you would NOT need to include Ijcai81 
  54. in r2b-proceedings-list (although it wouldn't cause an error).")
  55. (defvar r2b-additional-stop-words "Some\\|What" "\
  56. Words other than the capitialize-title-stop-words
  57. which are not to be used to build the citation key")
  58. (defvar r2b-delimit-with-quote t "\
  59. *If true, then use \" to delimit fields, otherwise use braces")
  60. (defvar capitalize-title-stop-words (concat "the\\|and\\|of\\|is\\|a\\|an\\|of\\|for\\|in\\|to\\|in\\|on\\|at\\|" "by\\|with\\|that\\|its") "\
  61. Words not to be capitialized in a title (unless they are the first
  62. word in the title)")
  63. (byte-code "└┴!¼à┬ ─Q└ç" [boundp capitalize-title-stop-regexp "\\(" capitalize-title-stop-words "\\)\\(\\b\\|'\\)"] 3)
  64. (fset 'capitalize-title-region #[(begin end) "└┴ ─Äî┼!ê}êebê╔╩!½à╦vê¬ä╠╦!ê═╬└╧#¡ƒ╔╩!½à╦vê¬o╧╔!)½å╤╦!ê¬`╠╦!ê¬Z,ç" [nil syntax-table orig-syntax-table case-fold-search ((set-syntax-table orig-syntax-table)) set-syntax-table text-mode-syntax-table begin end looking-at "[A-Z][a-z]*[A-Z]" 1 capitalize-word re-search-forward "\\<" t capitalize-title-stop-regexp downcase-word] 4 "\
  65. Like capitalize-region, but don't capitalize stop words, except the first" "r"])
  66. (fset 'capitalize-title #[(s) "è└┴!qê┬ ê cê─ed\"ê┼ )ç" [get-buffer-create "$$$Scratch$$$" erase-buffer s capitalize-title-region buffer-string] 3 "\
  67. Like capitalize, but don't capitalize stop words, except the first"])
  68. (fset 'r2b-reset #[nil "└┴!ê└┬!ê└├!ê└─!ê└┼!ê└╞!ê└╟!ç" [makunbound r2b-journal-abbrevs r2b-booktitle-abbrevs r2b-proceedings-list capitalize-title-stop-words capitalize-title-stop-regexp r2b-additional-stop-words r2b-stop-regexp] 2 "\
  69. unbind defvars, for debugging" nil])
  70. (byte-code "└┴!¼ê┬ ─╞░╟╚Mç" [boundp r2b-stop-regexp "\\`\\(\\(" r2b-additional-stop-words "\\|" capitalize-title-stop-words "\\)\\('\\w*\\)?\\W+\\)*\\([A-Z0-9]+\\)" r2b-trace #[(&rest args) "¡ê┴┬ \"ê─┼!ç" [r2b-trace-on apply message args sit-for 0] 3]] 5)
  71. (fset 'r2b-match #[(exp) "öò{ç" [exp] 2 "\
  72. returns string matched in current buffer"])
  73. (defvar r2b-out-buf-name "*Out*" "\
  74. *output from refer-to-bibtex")
  75. (defvar r2b-log-name "*Log*" "\
  76. *logs errors from refer-to-bibtex")
  77. (byte-code "└┴!¼é┬└├!¼é┬└─!¼é┬└┼!¼é┬╞┬ç" [boundp r2b-in-buf nil r2b-out-buf r2b-log r2b-error-found (r2b-error-found r2bv-author r2bv-primary-author r2bv-date r2bv-year r2bv-decade r2bv-month r2bv-title r2bv-title-first-word r2bv-editor r2bv-annote r2bv-tr r2bv-address r2bv-institution r2bv-keywords r2bv-booktitle r2bv-journal r2bv-volume r2bv-number r2bv-pages r2bv-booktitle r2bv-kn r2bv-publisher r2bv-organization r2bv-school r2bv-type r2bv-where r2bv-note r2bv-ordering) r2b-variables] 2)
  78. (fset 'r2b-clear-variables #[nil "ë¡î    @┬Lê    Aë¼u┬)ç" [r2b-variables vars nil] 3 "\
  79. set all global vars used by r2b to nil"])
  80. (fset 'r2b-warning #[(&rest args) "└┬├─\"\"ê┬╟\"ê┬╟\"ê┬╔\"ê┬├─\"\"ç" [t r2b-error-found princ apply format args r2b-log "\n" r2b-out-buf "% "] 4])
  81. (fset 'r2b-get-field #[(var field &optional unique required capitalize) "└ë┴┼╞\"êebê\n½╔╚╔╩Q└┴#½╛╦╠!╠y═Uë½Æ╬╧!¼ì╬╨!ê ╤╦╠!Q¬f ¼ä ¬M½Ä╙╘ #ê ╤ Q¬; ╒ Q¬4 ½ê½ä╫ ! Lê ?¡ê¡ä┌!+ç" [nil t not-past-end val item r2b-trace "snarfing %s" field re-search-forward "^" "\\b[     ]*\\(.*[^     \n]\\)[     ]*" r2b-match 1 0 looking-at "[     ]*$\\|%" "\\(.*[^     \n]\\)[     ]*$" "\n" unique r2b-warning "*Illegal multiple field %s %s" "\n        and " capitalize capitalize-title var required r2b-require] 4 "\
  82. Set VAR to string value of FIELD, if any.  If none, VAR is set to
  83. nil.  If multiple fields appear, then separate values with the
  84. '\\nand\\t\\t', unless UNIQUE is non-nil, in which case log a warning
  85. and just concatenate the values.  Trim off leading blanks and tabs on
  86. first line, and trailing blanks and tabs of every line.  Log a warning
  87. and set VAR to the empty string if REQUIRED is true.  Capitalize as a
  88. title if CAPITALIZE is true.  Returns value of VAR."])
  89. (fset 'r2b-set-match #[(var n regexp string) "    ;¡î┬     \"¡å     ö òOLç" [var string string-match regexp n] 4 "\
  90. set VAR to the Nth subpattern in REGEXP matched by STRING, or nil if none"])
  91. (byte-code "└┴!¼é┬└ç" [boundp r2b-month-abbrevs (("jan") ("feb") ("mar") ("apr") ("may") ("jun") ("jul") ("aug") ("sep") ("oct") ("nov") ("dec"))] 2)
  92. (fset 'r2b-convert-month #[nil "¡╞    ├─\"½¢\n½Ä├\n@@\"¼å\nAë¼r\n¡⌐\n@@ë¬ó┼!@뺽Æ\n╞V½ì\n╟W½ê\n    8@ë¬ç╚╔!ê╩ë)ç" [r2bv-month r2b-month-abbrevs months string-match "[^0-9]" read-from-string 0 13 r2b-warning "* Ridiculous month" nil] 4 "\
  93. Try to convert r2bv-month to a standard 3 letter name"])
  94. (fset 'r2b-snarf-input #[nil "└┬├!ê─┼!êqêebê╟╚    \"ê╟`╩ê`{    \"ê╦    !ê╠═╬\"ê╠╧╨\"ê½è╤╥╙╘$ê¬æ½è╤╥╙╘$ê¬â╒╠╓╫└ë$ê╤╪┼┘$ê¼Å╤╪╙┌$½å█P╤▄╙▌$ê╤▐┼▀$ê;½Åαß\"½ê┼╙òOΓ ê╠πΣ└ëë%ê╤σµ'#$ê╠ΦΘ└#ê╠Ωδ└#ê╠∞φ└#ê╠ε∩└#ê╠≡±\"ê╠≥≤└╩└%ê╠⌠⌡└╩└%ê╠÷≈└#ê╠°∙└#ê╠·√└#ê╠ⁿ²└#ê╠■ └#)ç" [t case-fold-search r2b-trace "snarfing..." sit-for 0 r2b-in-buf princ "    " r2b-log nil terpri r2b-get-field r2bv-author "%A" r2bv-editor "%E" r2b-set-match r2bv-primary-author 1 "\\b\\(\\w+\\)[     ]*\\($\\|,\\)" "" r2bv-date "%D" r2bv-year "[12][0-9][0-9][0-9]" "[^0-9]\\([0-9][0-9]\\)$" "19" r2bv-decade "..\\(..\\)" r2bv-month "[0-9]+/\\|[a-zA-Z]+" string-match "\\(.*\\)/$" r2b-convert-month r2bv-title "%T" r2bv-title-first-word 4 r2b-stop-regexp r2bv-annote "%X" r2bv-tr "%R" r2bv-address "%C" r2bv-institution "%I" r2bv-keywords "%K" r2bv-booktitle "%B" r2bv-journal "%J" r2bv-volume "%V" r2bv-number "%N" r2bv-pages "%P" r2bv-where "%W" r2bv-ordering "%O"] 6 "\
  95. parse buffer into global variables"])
  96. (fset 'r2b-put-field #[(field data &optional abbrevs) "à▐┴ëëë½Ü╟\"ë½æA¼à@¬äA@╚¬≥╔ܼè╩╦\"¼ä╚¬π╠╩═\n#½£╠ëöO╬╠ö╠òO╧╠ò┴O░╠ò╨\\¬]╠╩╤\n#½ö╠ëöO╥╠ö┴OQ╠ò╙\\¬e╠½¢╩╒\n#½ö╠ëöO╓╠ò┴OQ╠ò╫\\¬e╪┘!ê╪!ê╪█!ê ¼Ä½å╪╒!ê¬ä╪▄!ê╩▌\"ê╠ò▐V½ä╪▀!ê╪!ê ?¡î½à╪╒!¬â╪α!,ç" [data nil index multi-line nodelim match abbrevs assoc t "" string-match "[^0-9]" 0 "[\\~^]" "\\verb+" "+" 7 "[$&%#_{}]" "\\" 1 r2b-delimit-with-quote "\"" "{\"}" 2 princ ", \n  " field " =    " "{" ".*" 59 "\n" "}"] 7 "\
  97. print bibtex FIELD = {DATA} if DATA not null; precede
  98. with a comma and newline; if ABBREVS list is given, then
  99. try to replace the {DATA} with an abbreviation"])
  100. (fset 'r2b-require #[(vars) "?«¢<½è┴@!ê┴A!çJ?¡ê┬├\"ê─Lç" [vars r2b-require r2b-warning "*Missing value for field %s" ""] 3 "\
  101. If any of VARS is null, set to empty string and log error"])
  102. (fset 'r2b-moveq '(macro . #[(new old) "└┴\n E┴ ─EEç" [progn setq new old nil] 5 "\
  103. set NEW to OLD and set OLD to nil"]))
  104. (fset 'r2b-isa-proceedings #[(name) "¡¥┴┬\"«ù├ \"«æ├\"ë¡ç┴┬A@\")ç" [name string-match "proceedings\\|conference" assoc r2b-proceedings-list r2b-booktitle-abbrevs match] 4 "\
  105. return t if NAME is the name of proceedings"])
  106. (fset 'r2b-isa-university #[(name) "¡ï┴┬\"¡à┴├\"?ç" [name string-match "university" "press"] 3 "\
  107. return t if NAME is a university or similar organization, 
  108. but not a publisher"])
  109. (fset 'r2b-barf-output #[nil "┴┬╞╟!ê╚╔!êqê\n  Q╬!½¼┬╤!½ë┬¬ç┬┬╫╪!ê┘éí╬!½Ñ╤!½ë┬¬ç┬┬╫╪!ê┘éí½Ü┌█\"½ô┬╫▄!ê╫╪!ê▌éí½Ü┌▐\"½ô┬╫▄!ê╫╪!ê▀éí½û┌α\"½Å┬╫╪!êßéí½ê╫╪!êΓéí½Ü┬┬╫╘!ê╫╪!êπéí½Å$¼ï┌σ&\"½äτéí╬&!½á╤!½ë┬¬ç┬┬Φ¬±$¼Å½¿½ç┌Θ\"½¥┬┬╫╘!ê$¼ä╫╪!êΩ¬┴½«╫╥!ê┌δ\"½ò╔∞òO-εö┬O/┬¬ç/┬╫╪!ê≡¬Å½è┬±¬üτ2╫≤!ê4½ä⌡÷!ê⌡≈!ê⌡2!ê⌡°!ê⌡!ê∙·\"ê∙√&<#ê∙²>\"ê∙ @A#ê∙üBC#ê∙üDE\"ê∙üF-\"ê∙üG/\"ê∙üH<#ê∙üI$\"ê∙üJ\"ê∙üK\"ê∙üL\"ê∙üM\"ê∙üNO\"ê∙üPQ\"ê∙üR\"ê∙üST\"ê∙üUV\"ê∙üWX\"ê∙üYZ\"ê⌡ü[!+ç" [r2b-out-buf t nil match case-fold-search standard-output r2b-trace "...barfing" sit-for 0 r2bv-primary-author r2bv-decade r2bv-title-first-word r2bv-kn r2b-isa-proceedings r2bv-journal r2bv-booktitle r2b-isa-university r2bv-institution r2bv-organization r2bv-publisher r2bv-tr r2bv-note r2b-require r2bv-author inproceedings string-match "phd" r2bv-school phdthesis "master" mastersthesis "draft\\|unpublish" unpublished article incollection r2bv-editor "\\`personal communication\\'" r2bv-title misc proceedings "\\bisbn\\b" book "\\`\\(\\(.\\|\n\\)+\\)[     \n]+\\([^     \n]\\)+\\'" 1 r2bv-type 3 r2bv-number techreport manual r2bv-entry-kind (r2bv-year) r2b-error-found princ "\n% Warning -- Errors During Conversion Next Entry\n" "\n@" "( " r2b-put-field "author" "title" r2b-booktitle-abbrevs "year" r2bv-year "month" r2bv-month r2b-month-abbrevs "journal" r2b-journal-abbrevs "volume" r2bv-volume "type" "number" "booktitle" "editor" "publisher" "institution" "organization" "school" "pages" r2bv-pages "address" r2bv-address "note" "keywords" r2bv-keywords "where" r2bv-where "ordering" r2bv-ordering "annote" r2bv-annote " )\n"] 4 "\
  110. generate bibtex based on global variables"])
  111. (fset 'r2b-convert-record #[(output-name) "└ëë ╞ !pqêdbê╞    !ë\nqêdbêqê╦╠└═#ë¡«╬╧└╨#ê╦╤!ê╥yê`╦╧└╨#ê`\n }ê╙ ê╘ ê╒ êqê~ê bê═+ç" [nil not-done rec-begin rec-end output-name r2b-out-buf-name get-buffer-create r2b-out-buf r2b-in-buf r2b-log-name r2b-log re-search-forward "[^     \n]" t re-search-backward "^[     ]*$" 2 "^%" 0 r2b-clear-variables r2b-snarf-input r2b-barf-output] 5 "\
  112. transform current bib entry and append to buffer OUTPUT;
  113. do M-x r2b-help for more info" (byte-code "└┴\n\"Cç" [read-string "Output to buffer: " r2b-out-buf-name] 3)])
  114. (fset 'r2b-convert-buffer #[(output-name) "è└    !ëqê├ ê)~êebê─┼!ê╞╟!ê╚    !¼z─╩     #ç" [get-buffer-create r2b-log-name r2b-log erase-buffer message "Working, please be patient..." sit-for 0 r2b-convert-record output-name "Done, results in %s, errors in %s" r2b-out-buf-name] 5 "\
  115. transform current buffer and append to buffer OUTPUT;
  116. do M-x r2b-help for more info" (byte-code "└┴\n\"Cç" [read-string "Output to buffer: " r2b-out-buf-name] 3)])
  117. (defvar r2b-load-quietly nil "\
  118. *Don't print help message when loaded")
  119. (byte-code "└┴!¼é┬└ç" [boundp r2b-help-message "                   Refer to Bibtex Bibliography Conversion\n\nA refer-style database is of the form:\n\n%A Joe Blow\n%T Great Thoughts I've Thought\n%D 1977\netc.\n\nThis utility converts these kind of databases to bibtex form, for\nusers of TeX and LaTex.  Instructions:\n1.  Visit the file containing the refer-style database.\n2.  The command\n    M-x r2b-convert-buffer\n    converts the entire buffer, appending it's output by default in a\n    buffer named *Out*, and logging progress and errors in a buffer\n    named *Log*.  The original file is never modified.\n    Note that results are appended to *Out*, so if that buffer\n    buffer already exists and contains material you don't want to\n     save, you should kill it first.\n3.  Switch to the buffer *Out* and save it as a named file.\n4.  To convert a single refer-style entry, simply position the cursor\n    at the entry and enter\n    M-x r2b-convert-record\n    Again output is appended to *Out* and errors are logged in *Log*.\n\nThis utility is very robust and pretty smart about determining the\ntype of the entry.  It includes facilities for expanding refer macros\nto text, or substituting bibtex macros.  Do M-x describe-variable on\n     r2b-journal-abbrevs\n     r2b-booktitle-abbrevs\n     r2b-proceedings-list\nfor information on these features.\n\nIf you don't want to see this help message when you load this utility,\nthen include the following line in your .emacs file:\n    (setq r2b-load-quietly t)\nTo see this message again, perform \n         M-x r2b-help"] 2)
  120. (fset 'r2b-help #[nil "└É┴\n!æç" ["*Help*" princ r2b-help-message] 3 "\
  121. print help message" nil])
  122. (byte-code "¼â┴ ê┬├!ç" [r2b-load-quietly r2b-help message "r2b loaded"] 2)
  123.